﻿Namespace BE

    Public Class Cliente_BE
        Inherits Persona_BE

        Dim mEstado As Boolean
        Public Property Estado As Boolean
            Get
                Return mEstado
            End Get
            Set(value As Boolean)
                mEstado = value
            End Set
        End Property

        Dim mpoliza As Integer
        Public Property Poliza As Integer
            Get
                Return mpoliza
            End Get
            Set(value As Integer)
                mpoliza = value
            End Set
        End Property

        Private mIdCliente As Integer
        Public Property IdCliente() As Integer
            Get
                Return mIdCliente
            End Get
            Set(ByVal value As Integer)
                mIdCliente = value
            End Set
        End Property



    End Class
End Namespace
